home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POV302 / SCENES / MATH / HYPTORUS.POV < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.2 KB  |  61 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Alexander Enzmann
  4.  
  5. /* sample quartic scene file written by Alexander Enzmann */
  6.  
  7. #include "colors.inc"
  8. #include "shapes.inc"
  9. #include "textures.inc"
  10.  
  11.  
  12. /* Hyperbolic Torus having major radius sqrt(40), minor radius sqrt(12) */
  13. quartic {
  14.    < 1.0,  0.0,  0.0,   0.0,    2.0,  0.0,  0.0, -2.0,  0.0, -104.0
  15.      0.0,  0.0,  0.0,   0.0,    0.0,  0.0,  0.0,  0.0,  0.0,   0.0
  16.      1.0,  0.0,  0.0,  -2.0,    0.0, 56.0,  0.0,  0.0,  0.0,   0.0
  17.      1.0,  0.0, 104.0,  0.0,  784.0 >
  18.  
  19.    texture {
  20.       pigment { Red }
  21.       finish {
  22.          specular 1.0
  23.          roughness 0.01
  24.          ambient 0.2
  25.          diffuse 0.8
  26.       }
  27.    }
  28.  
  29.    bounded_by { sphere { <0, 0, 0>, 20 } }
  30.  
  31.    rotate 90*x
  32.    rotate 30*y
  33.    translate 20*z
  34. }
  35.  
  36. /* Put down a floor */
  37. plane {
  38.    y, -20.0
  39.    texture {
  40.       pigment {
  41.          Blue_Agate
  42.          scale 20.0
  43.       }
  44.       finish {
  45.          ambient 0.5
  46.          diffuse 0.5
  47.       }
  48.    }
  49. }
  50.  
  51. camera {
  52.    location  <0.0, 0.0, -20.0>
  53.    direction <0.0, 0.0,  1.0>
  54.    up        <0.0, 1.0,  0.0>
  55.    right     <4/3, 0.0,  0.0>
  56. }
  57.  
  58. light_source { <200, 30, -300> colour White }
  59.  
  60. light_source { <-200, 30, -300> colour White }
  61.